home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / programr / wtj208.zip / ZEMPEL / SOURCE / THUNKVB / THUNKVB.BAS < prev    next >
BASIC Source File  |  1993-05-08  |  1KB  |  21 lines
  1. Declare Function AddTwo Lib "calcw16.dll" (a&) As Long
  2. Declare Function SubTwo Lib "calcw16.dll" (a&) As Long
  3. Declare Function MultTwo Lib "calcw16.dll" (a&) As Long
  4. Declare Function DivTwo Lib "calcw16.dll" (a&) As Long
  5. Declare Sub GlobalFix Lib "Kernel" (ByVal hMem%)
  6. Declare Sub GlobalUnFix Lib "Kernel" (ByVal hMem%)
  7. Declare Function GlobalHandle& Lib "Kernel" (ByVal wMEM%)
  8. Declare Function AddTwo32 Lib "ut16.dll" (a&) As Long
  9. Declare Function SubTwo32 Lib "ut16.dll" (a&) As Long
  10. Declare Function MultTwo32 Lib "ut16.dll" (a&) As Long
  11. Declare Function DivTwo32 Lib "ut16.dll" (a&) As Long
  12. Declare Function SumArray Lib "calcw16.dll" (a&) As Long
  13. Declare Function VBPTRtoLong Lib "ut16.dll" (a&) As Long
  14. Declare Function SumArray32 Lib "ut16.dll" (a&) As Long
  15. Declare Function VBLowWord Lib "ut16.dll" (ByVal a&) As Integer
  16. Declare Function FindWindow Lib "User" (ByVal lpclassname As Any, ByVal lpcaption As Any) As Integer
  17. Declare Function SetActiveWindow Lib "User" (ByVal hWnd) As Integer
  18. Declare Function GetSelectorBase Lib "Kernel" (ByVal wsel%) As Long
  19. Declare Function UTSelectorOffSetToLinear Lib "Win32s16.dll" (ByVal a&) As Long
  20.  
  21.